
NT=2
   1 .
   2 .
   3 .
   4 .
  10 :return ;NT=0
  15 &(9)=107
  20 clear ;BC=157
  25 FC=0
  30 CX=-30;CY=16;print "BIORHYTHMS"
  40 print ;CX=-39;for A=87to 99;TV=@(A);next A
  50 print ;CX=-57;for A=100to 118;TV=@(A);next A
  55 print 
  60 print ;CX=-63;for A=119to 140;TV=@(A);next A
 100 for A=1to 2400
 110 if &(22)=16goto 10
 120 if &(23)=8goto 200
 130 next A
 140 BC=1
 150 goto 100
 190 input D,M,Y
 192 if D>0if D<32if M>0if M<13return 
 195 goto 190
 200 clear 
 205 BC=250;FC=7
 210 CY=24;print "  WHAT IS YOUR BIRTHDATE"
 220 print "(DAY, MONTH, YEAR - ALL"
 230 print "DIGIT FORMAT  PLEASE)?"
 240 gosub 190
 250 U=D;V=M;W=Y
 255 BC=87;FC=0
 260 CY=24;print "WHAT IS TODAY'S DATE     "
 265 CY=0;for A=1to 3;print "      ";next A
 270 CY=0;gosub 190
 280 CX=-30;print "THANK YOU!"
 290 Q=Y-W
 300 T=Qmul 365+Qdiv 4
 305 for A=0to 1
 306 if A=1T=-T
 310 for R=Vto 12
 320 T=T+30
 330 if R#2if R#4if R#6if R#9if R#11 T=T+1
 340 if R=2 T=T-2
 350 next R
 355 next A
 356 T=-T
 360 T=T+D-U
 370 P=Tdiv 23;P=RM
 380 E=Tdiv 28;E=RM+24
 390 I=Tdiv 33;I=RM+53
 400 clear 
 410 BC=125
 415 print ;print "YOU HAVE LIVED",#6,T," DAYS."
 420 print 
 430 print "PHYSICAL INDEX:",#9,@(P)
 440 X=@(P);gosub 1000
 460 print "EMOTIONAL INDEX:",#8,@(E)
 470 X=@(E);gosub 1000
 490 print "INTELLECTUAL INDEX:",#4,@(I)
 500 X=@(I);gosub 1000
 510 for Z=1to 3000;next Z
 520 clear 
 525 CY=0
 530 print "CYCLES: THE next 25 DAYS"
 535 for A=1to 1000;next A;clear 
 537 &(9)=71;&(0)=253;&(1)=253;&(2)=0;&(3)=0
 539 &(9)=72
 540 CX=-75;CY=@(P);print "P",;gosub 750
 550 CX=-68;CY=@(E);print "E",;gosub 750
 560 CX=-61;CY=@(I);print "I",;gosub 750
 570 line -50,43,0
 580 line -50,-43,1
 590 line -50,0,0
 600 line 75,0,1
 610 line -75,@(P),0
 620 A=P;B=23;C=0
 630 gosub 800
 640 line -68,@(E),0
 650 A=E;B=52;C=24
 660 gosub 800
 670 line -61,@(I),0
 680 A=I;B=86;C=53
 690 gosub 800
 700 Y=-42
 710 for X=-50to 75step 5
 720 box X,Y,1,3,3
 730 next X
 740 goto 100
 750 X=CX-7;Y=CY
 760 box X,Y,7,9,3
 770 return 
 800 for X=-50to 75step 5
 810 Y=@(A)
 820 line X,Y,1
 830 A=A+1;if A=B A=C
 840 next X
 850 return 
1000 if X>13print "GOOD"
1010 if X>=-13if X<=13print "CRITICAL!!!!"
1020 if X<-13print "BAD"
1030 return 
@(0)=0
@(1)=10
@(2)=19
@(3)=26
@(4)=32
@(5)=35
@(6)=36
@(7)=34
@(8)=29
@(9)=23
@(10)=14
@(11)=5
@(12)=-5
@(13)=-14
@(14)=-23
@(15)=-29
@(16)=-34
@(17)=-36
@(18)=-35
@(19)=-32
@(20)=-26
@(21)=-19
@(22)=-10
@(23)=0
@(24)=0
@(25)=8
@(26)=16
@(27)=22
@(28)=28
@(29)=32
@(30)=35
@(31)=36
@(32)=35
@(33)=32
@(34)=28
@(35)=22
@(36)=16
@(37)=8
@(38)=0
@(39)=-8
@(40)=-16
@(41)=-22
@(42)=-28
@(43)=-32
@(44)=-35
@(45)=-36
@(46)=-35
@(47)=-32
@(48)=-28
@(49)=-22
@(50)=-16
@(51)=-8
@(52)=0
@(53)=0
@(54)=7
@(55)=13
@(56)=19
@(57)=25
@(58)=29
@(59)=33
@(60)=35
@(61)=36
@(62)=36
@(63)=34
@(64)=31
@(65)=27
@(66)=22
@(67)=16
@(68)=10
@(69)=3
@(70)=-3
@(71)=-10
@(72)=-16
@(73)=-22
@(74)=-27
@(75)=-31
@(76)=-34
@(77)=-36
@(78)=-36
@(79)=-35
@(80)=-33
@(81)=-29
@(82)=-25
@(83)=-19
@(84)=-13
@(85)=-7
@(86)=0
@(87)=80
@(88)=82
@(89)=79
@(90)=71
@(91)=82
@(92)=65
@(93)=77
@(94)=77
@(95)=69
@(96)=68
@(97)=32
@(98)=66
@(99)=89
@(100)=82
@(101)=73
@(102)=67
@(103)=72
@(104)=65
@(105)=82
@(106)=68
@(107)=32
@(108)=67
@(109)=46
@(110)=32
@(111)=84
@(112)=73
@(113)=69
@(114)=84
@(115)=74
@(116)=69
@(117)=78
@(118)=83
@(119)=40
@(120)=67
@(121)=41
@(122)=49
@(123)=57
@(124)=55
@(125)=57
@(126)=32
@(127)=82
@(128)=46
@(129)=67
@(130)=46
@(131)=32
@(132)=84
@(133)=73
@(134)=69
@(135)=84
@(136)=74
@(137)=69
@(138)=78
@(139)=83
@(140)=32
run 
>